home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / Distance.asc < prev    next >
Text File  |  1980-03-04  |  744b  |  31 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command  
  12. '  -Wb Distance
  13. '
  14. Screen Open 0,640,512,16,$8004
  15. Curs Off : Flash Off : Cls 0
  16. '
  17. While Mouse Key<>1 : Wend 
  18. Gr Writing 2
  19. X0=X Screen(X Mouse)
  20. Y0=Y Screen(Y Mouse)
  21. While Mouse Key=1
  22.    X1=X Screen(X Mouse)
  23.    Y1=Y Screen(Y Mouse)
  24.    DIST=Max(1,Wb Distance(X0,Y0 To X1,Y1))
  25.    Ellipse X0,Y0,DIST,DIST
  26.    Ellipse X0,Y0,DIST,DIST
  27. Wend 
  28. Gr Writing 1
  29. '
  30. Ellipse X0,Y0,DIST,DIST
  31.